program NetFive;

uses
  Forms,acroMultiFramework_vcl,
  Windows,
  FormNetFive_U in 'FormNetFive_U.pas' {Form1},
  WxhNetFive in 'WxhNetFive.pas';

{$R *.RES}
var
  AppWnd:HWND;

begin
  AppWnd:=FindWindow('TApplication','Network Five');
  if AppWnd<>0 then
  begin
    if IsIconic(Appwnd) then ShowWindow(AppWnd,SW_Restore)
                        else SetForegroundWindow(AppWnd);
    exit;
  end;
  Application.Initialize;
  Application.Title := 'Network Five';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
